home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 August / Chip_2001-08_cd2.bin / kancelar / text2pdf / SETUPT2P.EXE / {app} / pdffileExe.bas < prev    next >
Encoding:
BASIC Source File  |  2000-10-28  |  831 b   |  31 lines
  1. Attribute VB_Name = "pdffileExe"
  2. Public FileSys As New FileSystemObject
  3.  
  4.  
  5. Public strScriptFilePath As String
  6. Public strPDFFilePath As String
  7.  
  8. Public bolScriptNeedsSaving As Boolean
  9. Public Function FormatFileName(strFileName As String) As String
  10.  
  11. ' If the user didn't enter a pdf file for output then
  12. '   use a default value
  13. If Trim(strFileName) = "" Then
  14.     strFileName = App.Path & "\PDFOut.pdf"
  15. End If
  16.  
  17. ' If the length of the file is less than 4 then there
  18. '   cannot be a ".pdf" extension (or the path name is bad)
  19. If Len(strFileName) < 4 Then
  20.     strFileName = strFileName & ".pdf"
  21. End If
  22.  
  23. strFileName = FileSys.GetAbsolutePathName(strFileName)
  24.  
  25. If Mid$(strFileName, Len(strFileName) - 3, 4) <> ".pdf" Then
  26.     strFileName = strFileName & ".pdf"
  27. End If
  28.  
  29. FormatFileName = strFileName
  30. End Function
  31.